home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Converters / 7toISO.lha / 7toiso / arexx / 7toISO.thor < prev   
Encoding:
Text File  |  1996-02-21  |  1.2 KB  |  62 lines

  1. /*
  2. ** 7toISO converter (Norwegian conditions)
  3. **
  4. ** ARexx script for Thor 2.x
  5. **
  6. ** $VER: 1.0 (21.2.96) by Kenneth C. Nilsen
  7. **
  8. ** NOTE1: The converted file will be saved with prefix .iso (<file>.iso)
  9. **
  10. ** NOTE2: Change <path> (below) to the directory or assign where you have
  11. **        installed <7toISO>!
  12. **
  13. */
  14.  
  15. path =    "c:"    /* change this to where you install 7toISO */
  16.  
  17. Opts =  "-M"    /* Command options -m =Mac, -M = Mac + PC, none = strange */
  18.  
  19. temp1 =    "t:tempFile"
  20. temp2 =    "t:tempFile.iso"
  21.  
  22.  
  23. options results
  24.  
  25. /* Yes, we have stolen a little from other thor arexx scripts ;) */
  26.  
  27. /* set port, bbs etc. */
  28.  
  29. thorport = address()
  30.  
  31. if ~show('p', 'BBSREAD') then do
  32.     address command
  33.         "run >nil: `GetEnv THOR/THORPath`bin/LoadBBSRead"
  34.         "WaitForPort BBSREAD"
  35. end
  36.  
  37. address(thorport)
  38.  
  39. CURRENTMSG stem CONV
  40. if(rc ~= 0) then
  41. do
  42.     REQUESTNOTIFY TEXT '"No current message."' BT '"_Ok"'
  43.     exit 0
  44. end
  45.  
  46. address command 'c:delete >nil:' Temp1
  47. address command 'c:delete >nil:' Temp2
  48.  
  49. /* Save current message to t: */
  50.  
  51. SAVEMESSAGE CURRENT FILENAME Temp1 NOHEADER NOANSI
  52.  
  53. /* Convert message */
  54.  
  55. Address COMMAND path || '7toISO' Opts Temp1 Temp2
  56.  
  57. /* Display converted message in Thor window */
  58.  
  59. SHOWTEXT FILENAME Temp2
  60.  
  61. Exit 0
  62.